use IO::Socket;
use updown;
my $sock = IO::Socket::INET->new('192.168.1.204:8008') or die "$!";
for (1..10)
{
	my $filename = '1.rar';
	print $sock "upload:$filename\n";
	upload($sock,"$filename");
	print "downloading....\n";
	print $sock "download:$filename\n";
	download($sock);
}
print $sock "quit\n";
